Co wymaga poprawy:
Wykres jest
kołowy, raczej wolimy takiego unikać. Tutaj wartości są podpisane więc
jeszcze nie jest tak źle, ale dla lepszej wizualizacji można użyć innego
wykresu. Dodatkowo gdyby dane były pogrupowane po krajach od razu, na
pierwszy rzut oka, widaćby było jak dużo śmieci importuje dany kraj.
Źródło wizualizacji: https://twitter.com/EU_Eurostat/status/1724445194815164435/photo/1
library(plotly)
library(dplyr)
data <- data.frame(Country = c("United Kingdom", "United States", "Switzerland", "Norway", "Other"),
paper = c(47, 20, 14, 12, 7),
plastic = c(45, 8, 7, 5, 35),
glass = c(47, 14, 9, 8, 22))
data$Country <- factor(data$Country, levels = rev(c("United Kingdom", "United States", "Switzerland", "Norway", "Other")))
fig <- plot_ly(data, y = ~Country, x = ~paper, type = "bar", name = "Paper",
hovertext = ~paste(Country, ": ", paper, "%", sep=""),
marker = list(color = '#C3B299')) %>%
add_trace(x = ~plastic, name = "Plastic", hovertext = ~paste(Country, ": ", plastic, "%", sep=""),
marker = list(color = '#815355')) %>%
add_trace(x = ~glass, name = "Glass", hovertext = ~paste(Country, ": ", glass, "%", sep=""),
marker = list(color = '#523249')) %>%
layout(xaxis = list(title = "Percentage in import of recyclables"), barmode = "group",
title = list(text = "Extra-EU trade partners for imports of recyclables, 2022",
y = 0.98),
legend = list(title = list(text = "Material Type")),
annotations = list(
x = 1,
y = 0,
xref = 'paper',
yref = 'paper',
text = 'Source: https://europa.eu/!Txdtdw',
showarrow = FALSE,
xanchor = 'right',
yanchor = 'bottom'
))
Na wykresie lepiej widać proporcje pomiędzy prezentowanymi wartościami. Dodatkowo można wybrać tylko jeden rodzaj odpadów klikając go w legendzie. Po najechaniu na dany słupek wyświetlają się dodatkowe informacje.